home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / MAP.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-08  |  3.7 KB  |  139 lines
  1. on startMovie
  2.   global grollnumber, gleftedge, grightedge, gupedge, gdownedge, gKnobState, gKnobSprite
  3.   gKnobState = 2
  4.   gKnobSprite = 21
  5.   puppetSprite(48, 1)
  6.   gleftedge = 550
  7.   grightedge = 335
  8.   gupedge = 300
  9.   gdownedge = 185
  10.   grollnumber = 8
  11. end
  12.  
  13. on checkrolls
  14.   repeat with i = 2 to 8
  15.     if rollOver(i) then
  16.       if rollOver(8) and rollOver(46) then
  17.         nothing()
  18.         next repeat
  19.       end if
  20.       theCast = cast(the castNum of sprite i).name
  21.       set the castNum of sprite i to the number of member (theCast & "1")
  22.       updateStage()
  23.       repeat while rollOver(i)
  24.         checkCursors()
  25.         set the locH of sprite 48 to the mouseH
  26.         set the locV of sprite 48 to the mouseV
  27.         updateStage()
  28.         if the mouseDown then
  29.           exit
  30.         end if
  31.       end repeat
  32.       set the castNum of sprite i to the number of member theCast
  33.       updateStage()
  34.     end if
  35.   end repeat
  36. end
  37.  
  38. on myLeft
  39.   global gleftedge, grollnumber
  40.   channel = the clickOn
  41.   puppetSprite(channel, 1)
  42.   puppetSound("buttonSound")
  43.   theCast = cast(the castNum of sprite channel).name
  44.   set the castNum of sprite channel to the number of member (theCast & "B")
  45.   updateStage()
  46.   puppetSound(0)
  47.   repeat while the stillDown
  48.     if the locH of sprite 1 >= gleftedge then
  49.       exit repeat
  50.     end if
  51.     repeat with i = 1 to grollnumber
  52.       set the locH of sprite i to the locH of sprite i + 20
  53.     end repeat
  54.     set the locH of sprite 28 to the locH of sprite 28 - 3
  55.     updateStage()
  56.   end repeat
  57.   set the castNum of sprite channel to the number of member theCast
  58.   updateStage()
  59.   puppetSprite(channel, 0)
  60. end
  61.  
  62. on myRight
  63.   global grightedge, grollnumber
  64.   channel = the clickOn
  65.   puppetSprite(channel, 1)
  66.   puppetSound("buttonSound")
  67.   theCast = cast(the castNum of sprite channel).name
  68.   set the castNum of sprite channel to the number of member (theCast & "B")
  69.   updateStage()
  70.   puppetSound(0)
  71.   repeat while the stillDown
  72.     if the locH of sprite 1 <= grightedge then
  73.       exit repeat
  74.     end if
  75.     repeat with i = 1 to grollnumber
  76.       set the locH of sprite i to the locH of sprite i - 20
  77.     end repeat
  78.     set the locH of sprite 28 to the locH of sprite 28 + 3
  79.     updateStage()
  80.   end repeat
  81.   set the castNum of sprite channel to the number of member theCast
  82.   updateStage()
  83.   puppetSprite(channel, 0)
  84. end
  85.  
  86. on myUp
  87.   global gupedge, grollnumber
  88.   channel = the clickOn
  89.   puppetSprite(channel, 1)
  90.   puppetSound("buttonSound")
  91.   theCast = cast(the castNum of sprite channel).name
  92.   set the castNum of sprite channel to the number of member (theCast & "B")
  93.   updateStage()
  94.   puppetSound(0)
  95.   repeat while the stillDown
  96.     if the locV of sprite 1 >= gupedge then
  97.       exit repeat
  98.     end if
  99.     repeat with i = 1 to grollnumber
  100.       set the locV of sprite i to the locV of sprite i + 20
  101.     end repeat
  102.     set the locV of sprite 28 to the locV of sprite 28 - 3
  103.     updateStage()
  104.   end repeat
  105.   set the castNum of sprite channel to the number of member theCast
  106.   updateStage()
  107.   puppetSprite(channel, 0)
  108. end
  109.  
  110. on myDown
  111.   global gdownedge, grollnumber
  112.   channel = the clickOn
  113.   puppetSprite(channel, 1)
  114.   puppetSound("buttonSound")
  115.   theCast = cast(the castNum of sprite channel).name
  116.   set the castNum of sprite channel to the number of member (theCast & "B")
  117.   updateStage()
  118.   puppetSound(0)
  119.   repeat while the stillDown
  120.     if the locV of sprite 1 <= gdownedge then
  121.       exit repeat
  122.     end if
  123.     repeat with i = 1 to grollnumber
  124.       set the locV of sprite i to the locV of sprite i - 20
  125.     end repeat
  126.     set the locV of sprite 28 to the locV of sprite 28 + 3
  127.     updateStage()
  128.   end repeat
  129.   set the castNum of sprite channel to the number of member theCast
  130.   updateStage()
  131.   puppetSprite(channel, 0)
  132. end
  133.  
  134. on allSpritesOff
  135.   repeat with i = 1 to 48
  136.     puppetSprite(i, 0)
  137.   end repeat
  138. end
  139.